home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 50
/
050.d81
/
bits 2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
3KB
|
68 lines
0 ifa=1then forx=1to1000:next:poke251,6:poke252,6:goto4
1 poke53274,.:sys65418:poke53280,6:poke53281,6
2 print"[147][208]lease [215]ait...."
3 ifa=0thena=1:load"raster.o",8,1
4 tp=49:bot=250:poke253,tp:poke254,bot:poke53280,12:poke53281,12:sys32768
5 poke253,tp:poke254,bot
6 tp=tp+1:bot=bot-1
7 iftp=150 then print"[147]"
8 iftp>155 then 10
9 goto 5
10 poke53274,0:sys65418:poke650,128:print"[152][147]":poke53265,12:forx=1to1000:next
25 poke53280,12:poke53281, 0:print"[147]";
26 print"[152] [158] L O A D S T A R ";
27 print"[152] Presents ";
28 print" ";
29 print" [152] [153] ZERO PAGE : Bits [151] [152]";
30 print" [151] [152] [153] 'Raster Inter";
31 print"rupts' [151] [152] [151] [152] [153] (I";
32 print"nteractive [196]emonstration) [151] [152] ";
33 print"[151] [152] [151] [152] ";
34 print" [159] [152] [159] Wr";
35 print"itten [194]y [202]im [210]ow [151] [152] [159] [151] [152] ";
36 print" [159] [151] [152] [151] ";
37 print" [152] COPYRIG";
38 print"HT[160]1988 [152] ";
39 print" [155] [208]ress [211][208][193][195][197] when ready to continue ";
40 print"[152] ":poke2023,32+128
45 poke53265,27
50 geta$:ifa$=""then50
51 poke253,76 :rem first raster int.
52 poke254,228:rem second raster int.
53 :
54 poke251,0: rem color1
55 poke252,6: rem color2
56 :
57 poke53280,240:poke53281,246
58 :
60 print"[147]":sys32768
70 print"[147] [210]aster [201]nterrupt [196]emo
71 [153]" tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
72 print" [208]ress [198]1 [212]o raise top line
73 [153]" (NULL)ress asc3 (NULL)o lower top line
75 print" [208]ress [198]5 [212]o raise bottom line
76 [153]" (NULL)ress asc7 (NULL)o lower bottom line
77 print" [208]ress [211] to change [211][195][210][197][197][206] [195][207][204][207][210]
78 [153]" (NULL)ress peek to change peek(NULL)(NULL)str$val(NULL) len(NULL)(NULL)(NULL)(NULL)
79 print" [208]ress [211][208][193][195][197][146] to [197][216][201][212] to [204][207][193][196][211][212][193][210]
80 [161]a$:[139]a$[178]""[167]80
81 [139]a$[178]"input"[175] [194](253)[177]1[167] [151]253,[194](253)[171]1
82 [139]a$[178]"dim"[175] [194](253)[179]255[167] [151]253,[194](253)[170]1
83 [139]a$[178]"read"[175] [194](254)[177]1 [167] [151]254,[194](254)[171]1
84 [139]a$[178]"let"[175] [194](254)[179]255[167] [151]254,[194](254)[170]1
85 [139]a$[178]" "[167]100
86 [139]a$[178]"s"[176]a$[178]"(NULL)"[167][151]251,[194](251)[170]1:[139][194](251)[178]16[167][151]251,0
87 [139]a$[178]"b"[176]a$[178]"peek"[167][151]252,[194](252)[170]1:[139][194](252)[178]16[167][151]252,0
88 [139]a$[178]" "[167]100
89 [139][194](251)[178]1[167][151]251,2
90 [137] 80
100 [153]" atnre you sure you want to quit? ((NULL)/(NULL)) "
110 [161]a$:[139]a$[178]""[167]110
111 [139]a$[178]"y"[176]a$[178]"(NULL)"[167] 120
112 [139]a$[178]"n"[176]a$[178]"(NULL)"[167] 70
115 [137] 110
120 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er,er$:[160]15
121 [151]53274,.:[158]65418
125 [139]er[179][177]63 [167] [153]"load":[128]
130 [147]"hello connect",8